home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -screenplay- / otherstuff / swosedit / install next >
Text File  |  1999-06-15  |  1KB  |  87 lines
  1. ; installation script for SWOS Editor V1.21
  2. ;
  3. ; script version 1.4
  4. ;
  5. ; 1.4 initial release
  6. ;
  7. (set #Swosname
  8. (cat "/SWOSEdit"
  9. ))
  10.  
  11. (set #fontname
  12. (cat "/SwosEdit/fonts"
  13. ))
  14.  
  15. (set #libname
  16. (cat "/SwosEdit/libs"
  17. ))
  18.  
  19.  
  20.  
  21. (set my_help
  22.    (cat
  23.       "Performing this installation will create a new drawer named \"SWOSED\" in the specified path.\n\n"
  24.       @askdir-help
  25.    )
  26. )
  27.  
  28. (message
  29.    "You will now be asked to give a path in which to install SWOS Editor v1.4.\n\n"
  30.    "The installation utility will create a new drawer named \"SwosEditor\""
  31.    "in the specified path.\n\n"
  32.    "It will then copy all of its required files into this new drawer.\n\n"
  33. )
  34.  
  35. ; Get the path from the user
  36.  
  37. (set dest_pp
  38.    (askdir
  39.       (prompt "Where should the SwosEditor drawer be created/installed?")
  40.       (help my_help)
  41.       (default @default-dest)
  42.    )
  43. )
  44.  
  45. ; Tell the Installer program where the user wants the data
  46.  
  47. (set @default-dest dest_pp)
  48.  
  49.  
  50. (set dest_pp
  51.    (tackon dest_pp "SwosEditor")
  52. )
  53.  
  54. (makedir dest_pp
  55.    (infos)
  56. )
  57.  
  58. (working)
  59.  
  60. (copyfiles
  61.    (infos)
  62.    (help @copyfiles-help)
  63.    (source #swosname)
  64.    (pattern "#?")
  65.    (files)
  66.    (dest dest_pp)
  67. )
  68.  
  69. (copyfiles
  70.    (infos)
  71.    (help @copyfiles-help)
  72.    (source #fontname)
  73.    (dest "FONTS:")
  74.    (pattern "SwosEditor#?")
  75.    (fonts)
  76. )
  77.  
  78.  
  79. (copylib (prompt copybblib)
  80.          (help @copylib-help)
  81.          (source #libname)
  82.          (dest "LIBS:")
  83.          (optional nofail askuser)
  84. )
  85.  
  86.  
  87.